inherited FCadastroFornecedor: TFCadastroFornecedor
  Left = 245
  Top = 149
  Caption = 'Cadastro Fornecedores'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    ActivePage = TsCadastro
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'FORN_CODIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_RAZAO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_FANTASIA'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_TIPOFORNECEDOR'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_CPFCNPJ'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_INSCESTADUAL'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_INSCMUNICIPAL'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_FONE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_FAX'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_EMAIL'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_ENDERECO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_BAIRRO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_CEP'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_CIDADE'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_ESTADO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_OBS'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_CONTATO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FORN_GRUPO'
            Visible = True
          end>
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited DBNavigator1: TDBNavigator
            Hints.Strings = ()
          end
        end
        inherited panel3: TPanel
          Top = 402
          Height = 82
          object Label22: TLabel [3]
            Left = 8
            Top = 8
            Width = 197
            Height = 16
            Caption = 'Pressione F9 para indicar Favorito'
          end
          inherited BtnConsuta: TBitBtn
            OnClick = BtnConsutaClick
          end
          inherited stSituacaoReg2: TStaticText
            Top = 56
          end
        end
        object PageControl: TPageControl
          Left = 1
          Top = 36
          Width = 842
          Height = 366
          ActivePage = tsParamentros
          Align = alClient
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnChange = PageControlChange
          object TSDados: TTabSheet
            Caption = 'Identifica'#231#227'o'
            object Label10: TLabel
              Left = 1
              Top = 134
              Width = 50
              Height = 16
              Caption = 'Fantasia'
            end
            object Label16: TLabel
              Left = 342
              Top = 46
              Width = 67
              Height = 16
              Caption = 'Insc Munic.'
            end
            object Label1: TLabel
              Left = 1
              Top = 90
              Width = 133
              Height = 16
              Caption = 'Nome ou Raz'#227'o Social'
              FocusControl = DBENome
            end
            object Label14: TLabel
              Left = 1
              Top = -1
              Width = 40
              Height = 16
              Caption = 'C'#243'digo'
            end
            object Label8: TLabel
              Left = 1
              Top = 262
              Width = 33
              Height = 16
              Caption = 'Email'
              FocusControl = DBEemail
            end
            object Label5: TLabel
              Left = 1
              Top = 218
              Width = 48
              Height = 16
              Caption = 'Telefone'
            end
            object Label6: TLabel
              Left = 284
              Top = 218
              Width = 24
              Height = 16
              Caption = 'FAX'
            end
            object Label9: TLabel
              Left = 1
              Top = 46
              Width = 26
              Height = 16
              Caption = 'CPF'
            end
            object Label3: TLabel
              Left = 530
              Top = 177
              Width = 34
              Height = 16
              Caption = 'Bairro'
            end
            object Label2: TLabel
              Left = 59
              Top = 177
              Width = 55
              Height = 16
              Caption = 'Endere'#231'o'
            end
            object Label4: TLabel
              Left = 749
              Top = 177
              Width = 27
              Height = 16
              Caption = 'CEP'
            end
            object Label7: TLabel
              Left = 548
              Top = 218
              Width = 40
              Height = 16
              Caption = 'Cidade'
            end
            object Label15: TLabel
              Left = 795
              Top = 218
              Width = 17
              Height = 16
              Caption = 'UF'
            end
            object Label12: TLabel
              Left = 191
              Top = 46
              Width = 79
              Height = 16
              Caption = 'Insc Estadual'
            end
            object Label23: TLabel
              Left = 0
              Top = 357
              Width = 24
              Height = 16
              Caption = 'Obs'
            end
            object Label19: TLabel
              Left = 431
              Top = 44
              Width = 35
              Height = 16
              Caption = 'Grupo'
            end
            object Label24: TLabel
              Left = 284
              Top = 262
              Width = 23
              Height = 16
              Caption = 'Site'
              FocusControl = edSite
            end
            object Label21: TLabel
              Left = 465
              Top = 177
              Width = 45
              Height = 16
              Caption = 'N'#250'mero'
            end
            object Label29: TLabel
              Left = 1
              Top = 177
              Width = 57
              Height = 16
              Caption = 'Tipo Logr.'
            end
            object Label43: TLabel
              Left = 411
              Top = 218
              Width = 126
              Height = 16
              Caption = 'C'#243'digo Municipio (F8)'
            end
            object DBEFantasia: TDBEdit
              Left = 1
              Top = 150
              Width = 443
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_FANTASIA'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 10
              OnEnter = DBEFantasiaEnter
            end
            object DBENome: TDBEdit
              Left = 1
              Top = 106
              Width = 443
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_RAZAO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 9
            end
            object DBEemail: TDBEdit
              Left = 1
              Top = 278
              Width = 276
              Height = 22
              CharCase = ecLowerCase
              Ctl3D = False
              DataField = 'FORN_EMAIL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 20
              OnEnter = DBEemailEnter
            end
            object DBEEndereco: TDBEdit
              Left = 59
              Top = 193
              Width = 400
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_ENDERECO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 12
            end
            object DBEbairro: TDBEdit
              Left = 530
              Top = 193
              Width = 213
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_BAIRRO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 14
            end
            object DBECidade: TDBEdit
              Left = 548
              Top = 235
              Width = 243
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_CIDADE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 16
            end
            object DBEEstado: TDBEdit
              Left = 795
              Top = 235
              Width = 31
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_ESTADO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 17
              OnKeyPress = DBEEstadoKeyPress
            end
            object DBRGTipoFornecedor: TDBRadioGroup
              Left = 65
              Top = 5
              Width = 240
              Height = 38
              Caption = '  Tipo Fornecedor  '
              Columns = 3
              Ctl3D = False
              DataField = 'FORN_TIPOFORNECEDOR'
              DataSource = dsCadastro
              Items.Strings = (
                'F'#237'sica'
                'Jur'#237'dica'
                'Outros')
              ParentCtl3D = False
              TabOrder = 1
              Values.Strings = (
                '1'
                '2'
                '3')
              OnChange = DBRGTipoFornecedorChange
              OnClick = DBRGTipoFornecedorClick
            end
            object DBECep: TDBEdit
              Left = 749
              Top = 193
              Width = 77
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_CEP'
              DataSource = dsCadastro
              MaxLength = 9
              ParentCtl3D = False
              TabOrder = 15
              OnKeyDown = DBECepKeyDown
            end
            object DBEFone: TDBEdit
              Left = 1
              Top = 235
              Width = 276
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_FONE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 18
              OnKeyDown = DBEFoneKeyDown
            end
            object DBEFax: TDBEdit
              Left = 284
              Top = 235
              Width = 114
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_FAX'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 19
              OnKeyDown = DBEFoneKeyDown
            end
            object DBEInscMunicipal: TDBEdit
              Left = 342
              Top = 62
              Width = 73
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_INSCMUNICIPAL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 4
            end
            object DBEInscEstadual: TDBEdit
              Left = 191
              Top = 62
              Width = 146
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_INSCESTADUAL'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 3
            end
            object DBECpfCNPJ: TDBEdit
              Left = 1
              Top = 62
              Width = 180
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_CPFCNPJ'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 2
              OnExit = DBECpfCNPJExit
              OnKeyPress = DBECpfCNPJKeyPress
            end
            object DBMObs: TDBMemo
              Left = 0
              Top = 373
              Width = 576
              Height = 45
              Ctl3D = False
              DataField = 'FORN_OBS'
              DataSource = DSFornecedor
              MaxLength = 255
              ParentCtl3D = False
              TabOrder = 21
            end
            object edGrupo: TDBEdit
              Left = 430
              Top = 62
              Width = 50
              Height = 22
              Ctl3D = False
              DataField = 'FORN_GRUPO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 5
            end
            object edSite: TDBEdit
              Left = 284
              Top = 278
              Width = 276
              Height = 22
              CharCase = ecLowerCase
              Ctl3D = False
              DataField = 'FORN_SITE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 22
              OnEnter = edSiteEnter
            end
            object edCodigo: TDBEdit
              Left = 0
              Top = 16
              Width = 57
              Height = 22
              Ctl3D = False
              DataField = 'FORN_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
            object rgNatureza: TDBRadioGroup
              Left = 489
              Top = 44
              Width = 336
              Height = 67
              Caption = '  Natureza  '
              Columns = 2
              Ctl3D = False
              DataField = 'FORN_NATUREZA'
              DataSource = dsCadastro
              Items.Strings = (
                'Mercadoria'
                'Servi'#231'o'
                'Mercadoria e Servi'#231'o'
                'Outros')
              ParentCtl3D = False
              TabOrder = 6
              Values.Strings = (
                'M'
                'S'
                'X'
                'O')
              OnClick = DBRGTipoFornecedorClick
            end
            object rgMr: TDBRadioGroup
              Left = 489
              Top = 112
              Width = 136
              Height = 63
              Caption = '  Mercado na Rede  '
              Ctl3D = False
              DataField = 'FORN_MR'
              DataSource = dsCadastro
              Items.Strings = (
                'Sim'
                'N'#227'o')
              ParentCtl3D = False
              TabOrder = 7
              Values.Strings = (
                'S'
                'N')
              OnClick = DBRGTipoFornecedorClick
            end
            object gbDTMr: TGroupBox
              Left = 624
              Top = 112
              Width = 121
              Height = 63
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 8
              object Label20: TLabel
                Left = 16
                Top = 16
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object DBDateEdit1: TDBDateEdit
                Left = 16
                Top = 32
                Width = 90
                Height = 21
                DataField = 'PROD_DATA_MR'
                DataSource = dsCadastro
                NumGlyphs = 2
                TabOrder = 0
              end
            end
            object edNumero: TDBEdit
              Left = 464
              Top = 193
              Width = 62
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_NUMERO_ENDERECO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 13
              OnKeyDown = DBEFoneKeyDown
            end
            object edTipoLogradouro: TDBEdit
              Left = 1
              Top = 193
              Width = 54
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CLI_TIPO_ENDERECO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 11
              OnKeyDown = DBEFoneKeyDown
            end
            object DBECodMun1: TDBEdit
              Left = 410
              Top = 235
              Width = 130
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_CORRESP_CODMUN'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 23
              OnExit = DBECodMun1Exit
              OnKeyDown = DBECodMun1KeyDown
            end
          end
          object TSContato: TTabSheet
            Caption = 'Contatos'
            ImageIndex = 1
            object Label25: TLabel
              Left = 2
              Top = 4
              Width = 35
              Height = 16
              Caption = 'Grupo'
            end
            object Label26: TLabel
              Left = 49
              Top = 4
              Width = 63
              Height = 16
              Caption = 'Anivers'#225'rio'
            end
            object Label27: TLabel
              Left = 165
              Top = 4
              Width = 34
              Height = 16
              Caption = 'Nome'
            end
            object Label28: TLabel
              Left = 444
              Top = 4
              Width = 34
              Height = 16
              Caption = 'Cargo'
            end
            object LtotalItens: TLabel
              Left = 5
              Top = 84
              Width = 251
              Height = 16
              AutoSize = False
              Caption = 'Total itens :'
              Font.Charset = DEFAULT_CHARSET
              Font.Color = clRed
              Font.Height = -13
              Font.Name = 'MS Sans Serif'
              Font.Style = []
              ParentFont = False
            end
            object Label13: TLabel
              Left = 588
              Top = 4
              Width = 48
              Height = 16
              Caption = 'Telefone'
            end
            object EGrupo: TEdit
              Left = 2
              Top = 23
              Width = 37
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              MaxLength = 1
              ParentCtl3D = False
              TabOrder = 0
            end
            object DTAniversario: TDateTimePicker
              Left = 49
              Top = 23
              Width = 112
              Height = 24
              Date = 1462.526822638890000000
              Format = 'dd - MMMM'
              Time = 1462.526822638890000000
              TabOrder = 1
            end
            object ENome: TEdit
              Left = 165
              Top = 23
              Width = 273
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              MaxLength = 60
              ParentCtl3D = False
              TabOrder = 2
            end
            object ECargo: TEdit
              Left = 444
              Top = 23
              Width = 139
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              MaxLength = 30
              ParentCtl3D = False
              TabOrder = 3
            end
            object BtnIncluirProduto: TBitBtn
              Tag = 1
              Left = 2
              Top = 54
              Width = 69
              Height = 25
              Caption = 'I&ncluir'
              TabOrder = 4
              OnClick = BtnIncluirProdutoClick
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                0400000000000001000000000000000000001000000000000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
                333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
                0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
                07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
                07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
                0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
                33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
                B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
                3BB33773333773333773B333333B3333333B7333333733333337}
              NumGlyphs = 2
            end
            object BtnAlterarProduto: TBitBtn
              Tag = 1
              Left = 74
              Top = 54
              Width = 69
              Height = 25
              Caption = 'Editar'
              TabOrder = 5
              OnClick = BtnAlterarProdutoClick
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                0400000000000001000000000000000000001000000000000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
                000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
                00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
                F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
                0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
                FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
                FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
                0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
                00333377737FFFFF773333303300000003333337337777777333}
              NumGlyphs = 2
            end
            object BtnDeletarProduto: TBitBtn
              Tag = 1
              Left = 146
              Top = 54
              Width = 69
              Height = 25
              Caption = 'Excluir'
              TabOrder = 6
              OnClick = BtnDeletarProdutoClick
              Glyph.Data = {
                5A010000424D5A01000000000000760000002800000012000000130000000100
                040000000000E400000000000000000000001000000000000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
                8888890000008988888888888888980000008998877777777779880000008999
                0000000000998800000088990BFFFBFFF9988800000088899FCCCCCCF9788800
                0000888999FBFFFB9978880000008888999CCC9990788800000088880999FB99
                F0788800000088880FC9999CF0788800000088880FF9999BF078880000008888
                0FC9999000788800000088880B99F099F0788800000088880999F09999888800
                0000888999FBF0F0899888000000899990000008889988000000899988888888
                888898000000888888888888888889000000888888888888888888000000}
            end
            object DBGrid1: TDBGrid
              Tag = 5
              Left = 0
              Top = 103
              Width = 834
              Height = 232
              Align = alBottom
              Ctl3D = False
              DataSource = DSMalaDireta
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
              ParentCtl3D = False
              PopupMenu = PopupMenu2
              TabOrder = 7
              TitleFont.Charset = ANSI_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = 'Arial'
              TitleFont.Style = []
              OnCellClick = DBGrid1CellClick
              OnDrawColumnCell = DBGrid1DrawColumnCell
              OnKeyUp = DBGrid1KeyUp
              Columns = <
                item
                  Expanded = False
                  FieldName = 'CODIGO'
                  Title.Caption = 'C'#243'digo'
                  Width = 53
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'GRUPO'
                  Title.Caption = 'Grupo'
                  Width = 44
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ANIVERSARIO'
                  Title.Caption = 'Anivers'#225'rio'
                  Width = 85
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'NOME'
                  Title.Caption = 'Nome'
                  Width = 273
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'CARGO'
                  Title.Caption = 'Cargo'
                  Width = 144
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'TELEFONE'
                  Title.Caption = 'Telefone'
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'FAVORITO'
                  Width = 19
                  Visible = True
                end>
            end
            object BtnConsultaAcompanhamento: TBitBtn
              Left = 223
              Top = 54
              Width = 90
              Height = 26
              Caption = 'Etiq&ueta'
              TabOrder = 8
              OnClick = BtnConsultaAcompanhamentoClick
              Glyph.Data = {
                42010000424D4201000000000000760000002800000011000000110000000100
                040000000000CC00000000000000000000001000000010000000000000000000
                BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
                77777000000070000000007777777000000070FFFFFFF07777700000000070F7
                7777F07777000000000070F77777F07770007000000070F77780008700077000
                000070F7700FFF0000777000000070F708FFFF0807777000000070F80E000F07
                08777000000070F0EFEFEF0770777000000070F0F0000F077077700000007000
                EFEFFF0770777000000077780000000708777000000077770077777807777000
                0000777770077700777770000000777777800087777770000000777777777777
                777770000000}
            end
            object EdTelefone: TEdit
              Left = 588
              Top = 23
              Width = 109
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              MaxLength = 30
              ParentCtl3D = False
              TabOrder = 9
            end
          end
          object tsParamentros: TTabSheet
            Caption = 'Par'#226'mentros'
            ImageIndex = 2
            object DBText3: TDBText
              Left = 105
              Top = 17
              Width = 50
              Height = 16
              AutoSize = True
              DataField = 'PLANOCONT_CODIGOCONTABIL'
              DataSource = DSPlanoContabil
            end
            object Label11: TLabel
              Left = 1
              Top = 17
              Width = 85
              Height = 16
              Caption = 'Conta Contabil'
            end
            object Label17: TLabel
              Left = 1
              Top = 64
              Width = 168
              Height = 16
              Caption = 'Classifica'#231#227'o Financeira (F8)'
            end
            object Label18: TLabel
              Left = 1
              Top = 112
              Width = 121
              Height = 16
              Caption = 'Centro de Custo (F8)'
            end
            object Label51: TLabel
              Left = 3
              Top = 205
              Width = 139
              Height = 16
              Caption = 'Identifica'#231#227'o Exportador'
            end
            object Label52: TLabel
              Left = 3
              Top = 248
              Width = 91
              Height = 16
              Caption = 'Estoque / Local'
            end
            object Label35: TLabel
              Left = 3
              Top = 159
              Width = 142
              Height = 16
              Caption = 'Condi'#231#227'o de Pagamento'
            end
            object DBLCBContaContabil: TDBLookupComboBox
              Left = 1
              Top = 33
              Width = 371
              Height = 22
              Ctl3D = False
              DataField = 'FORN_CONTACONTABIL'
              DataSource = dsCadastro
              KeyField = 'PLANOCONT_CODIGO'
              ListField = 'PLANOCONT_DESCRICAO'
              ListSource = DSPlanoContabil
              ParentCtl3D = False
              TabOrder = 0
              OnClick = DBLCBContaContabilClick
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBLClassificacaoFinanceira: TDBLookupComboBox
              Left = 1
              Top = 82
              Width = 369
              Height = 22
              Ctl3D = False
              DataField = 'FORN_COD_CLASSIFICACAO_FIN'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSClassificacaoFin
              ParentCtl3D = False
              TabOrder = 1
              OnKeyDown = DBLClassificacaoFinanceiraKeyDown
            end
            object DBLCentroCusto: TDBLookupComboBox
              Left = 1
              Top = 129
              Width = 369
              Height = 22
              Ctl3D = False
              DataField = 'FORN_COD_CENTRO_CUSTO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSCentroCusto
              ParentCtl3D = False
              TabOrder = 2
              OnKeyDown = DBLCentroCustoKeyDown
            end
            object GroupBox1: TGroupBox
              Left = 444
              Top = 14
              Width = 307
              Height = 179
              Caption = '  Pag-For  '
              TabOrder = 3
              object Label30: TLabel
                Left = 14
                Top = 20
                Width = 37
                Height = 16
                Caption = 'Banco'
              end
              object Label31: TLabel
                Left = 14
                Top = 60
                Width = 47
                Height = 16
                Caption = 'Agencia'
              end
              object Label32: TLabel
                Left = 14
                Top = 98
                Width = 87
                Height = 16
                Caption = 'Conta Corrente'
              end
              object Label33: TLabel
                Left = 74
                Top = 59
                Width = 19
                Height = 16
                Caption = 'Dig'
              end
              object Label34: TLabel
                Left = 114
                Top = 97
                Width = 19
                Height = 16
                Caption = 'Dig'
              end
              object DBEdit1: TDBEdit
                Left = 14
                Top = 35
                Width = 41
                Height = 22
                AutoSize = False
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'FORN_CODIGO_BANCO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 0
                OnKeyDown = DBEFoneKeyDown
                OnKeyPress = DBEdit1KeyPress
              end
              object DBEdit2: TDBEdit
                Left = 14
                Top = 75
                Width = 56
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'FORN_CODIGO_AGENCIA'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 1
                OnKeyDown = DBEFoneKeyDown
                OnKeyPress = DBEdit2KeyPress
              end
              object DBEdit3: TDBEdit
                Left = 75
                Top = 75
                Width = 24
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'FORN_DIGITO_AGENCIA'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 2
                OnKeyDown = DBEFoneKeyDown
                OnKeyPress = DBEdit3KeyPress
              end
              object DBEdit4: TDBEdit
                Left = 14
                Top = 113
                Width = 96
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'FORN_CONTA_CORRENTE'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 3
                OnKeyDown = DBEFoneKeyDown
                OnKeyPress = DBEdit4KeyPress
              end
              object DBEdit5: TDBEdit
                Left = 115
                Top = 113
                Width = 24
                Height = 22
                CharCase = ecUpperCase
                Ctl3D = False
                DataField = 'FORN_DIGITO_CONTA_CORRENTE'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 4
                OnKeyDown = DBEFoneKeyDown
                OnKeyPress = DBEdit5KeyPress
              end
              object DBRadioGroup1: TDBRadioGroup
                Left = 13
                Top = 136
                Width = 173
                Height = 34
                Caption = ' Tipo da Conta  '
                Columns = 2
                Ctl3D = False
                DataField = 'FORN_TIPO_CONTA'
                DataSource = dsCadastro
                Items.Strings = (
                  'Corrente'
                  'Poupan'#231'a')
                ParentCtl3D = False
                TabOrder = 5
                Values.Strings = (
                  '1'
                  '2')
                OnChange = DBRGTipoFornecedorChange
                OnClick = DBRGTipoFornecedorClick
              end
            end
            object DBEdit7: TDBEdit
              Left = 2
              Top = 221
              Width = 191
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_CNPJ_EX'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 4
            end
            object DBLookupComboBox2: TDBLookupComboBox
              Left = 1
              Top = 264
              Width = 193
              Height = 22
              Ctl3D = False
              DataField = 'FORN_LOCAL'
              DataSource = dsCadastro
              KeyField = 'LOC_CODIGO'
              ListField = 'LOC_DESCRICAO'
              ListSource = DSLocal
              ParentCtl3D = False
              TabOrder = 5
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBEdit6: TDBEdit
              Left = 2
              Top = 175
              Width = 367
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'FORN_CNPJ_EX'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 6
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 456
    Top = 24
  end
  inherited dsCadastro: TDataSource
    Left = 672
    Top = 360
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'select * from Fornecedor')
    Left = 800
    Top = 376
  end
  inherited dspCadastro: TDataSetProvider
    Left = 504
    Top = 464
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    Left = 448
    Top = 304
    object cdsCadastroFORN_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'FORN_CODIGO'
    end
    object cdsCadastroFORN_RAZAO: TStringField
      DisplayLabel = 'Raz'#227'o Social'
      FieldName = 'FORN_RAZAO'
      Size = 60
    end
    object cdsCadastroFORN_FANTASIA: TStringField
      DisplayLabel = 'Nome Fantasia'
      FieldName = 'FORN_FANTASIA'
      Size = 60
    end
    object cdsCadastroFORN_TIPOFORNECEDOR: TStringField
      DisplayLabel = 'Tipo'
      FieldName = 'FORN_TIPOFORNECEDOR'
      Size = 1
    end
    object cdsCadastroFORN_CPFCNPJ: TStringField
      DisplayLabel = 'CPF/CNPJ'
      FieldName = 'FORN_CPFCNPJ'
    end
    object cdsCadastroFORN_INSCESTADUAL: TStringField
      DisplayLabel = 'Ins. Estadual'
      FieldName = 'FORN_INSCESTADUAL'
    end
    object cdsCadastroFORN_INSCMUNICIPAL: TStringField
      DisplayLabel = 'Ins. Municipal'
      FieldName = 'FORN_INSCMUNICIPAL'
    end
    object cdsCadastroFORN_FONE: TStringField
      DisplayLabel = 'Telefone'
      FieldName = 'FORN_FONE'
    end
    object cdsCadastroFORN_FAX: TStringField
      DisplayLabel = 'Fax'
      FieldName = 'FORN_FAX'
    end
    object cdsCadastroFORN_EMAIL: TStringField
      DisplayLabel = 'Email'
      FieldName = 'FORN_EMAIL'
      Size = 62
    end
    object cdsCadastroFORN_ENDERECO: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'FORN_ENDERECO'
      Size = 60
    end
    object cdsCadastroFORN_BAIRRO: TStringField
      DisplayLabel = 'Bairro'
      FieldName = 'FORN_BAIRRO'
      Size = 60
    end
    object cdsCadastroFORN_CEP: TStringField
      DisplayLabel = 'CEP'
      FieldName = 'FORN_CEP'
      EditMask = '99999-999;0'
      Size = 10
    end
    object cdsCadastroFORN_CIDADE: TStringField
      DisplayLabel = 'Cidade'
      FieldName = 'FORN_CIDADE'
      Size = 60
    end
    object cdsCadastroFORN_ESTADO: TStringField
      DisplayLabel = 'Estado'
      FieldName = 'FORN_ESTADO'
      Size = 2
    end
    object cdsCadastroFORN_OBS: TStringField
      DisplayLabel = 'Observa'#231#227'o'
      FieldName = 'FORN_OBS'
      Size = 255
    end
    object cdsCadastroFORN_CONTACONTABIL: TIntegerField
      FieldName = 'FORN_CONTACONTABIL'
    end
    object cdsCadastroFORN_CONTATO: TStringField
      DisplayLabel = 'Contato'
      FieldName = 'FORN_CONTATO'
      Size = 60
    end
    object cdsCadastroFORN_COD_CENTRO_CUSTO: TIntegerField
      FieldName = 'FORN_COD_CENTRO_CUSTO'
    end
    object cdsCadastroFORN_COD_CLASSIFICACAO_FIN: TIntegerField
      FieldName = 'FORN_COD_CLASSIFICACAO_FIN'
    end
    object cdsCadastroFORN_GRUPO: TStringField
      DisplayLabel = 'Grupo'
      FieldName = 'FORN_GRUPO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroFORN_FK_GRUPO: TIntegerField
      FieldName = 'FORN_FK_GRUPO'
    end
    object cdsCadastroFORN_VALOR_LIMITE: TFloatField
      FieldName = 'FORN_VALOR_LIMITE'
    end
    object cdsCadastroFORN_DATA_LIMITE: TDateTimeField
      FieldName = 'FORN_DATA_LIMITE'
    end
    object cdsCadastroFORN_VALOR_CREDITO: TFloatField
      FieldName = 'FORN_VALOR_CREDITO'
    end
    object cdsCadastroFORN_OBS_LIMITE: TStringField
      FieldName = 'FORN_OBS_LIMITE'
      Size = 255
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroFORN_MR: TStringField
      FieldName = 'FORN_MR'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroPROD_DATA_MR: TDateTimeField
      FieldName = 'PROD_DATA_MR'
    end
    object cdsCadastroFORN_NATUREZA: TStringField
      FieldName = 'FORN_NATUREZA'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroFORN_SITE: TStringField
      FieldName = 'FORN_SITE'
      Size = 40
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroCLI_TIPO_ENDERECO: TStringField
      FieldName = 'CLI_TIPO_ENDERECO'
      FixedChar = True
      Size = 3
    end
    object cdsCadastroCLI_NUMERO_ENDERECO: TStringField
      FieldName = 'CLI_NUMERO_ENDERECO'
      Size = 10
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroFORN_CORRESP_CODMUN: TIntegerField
      Alignment = taCenter
      FieldName = 'FORN_CORRESP_CODMUN'
    end
    object cdsCadastroFORN_DESPAIS: TStringField
      FieldName = 'FORN_DESPAIS'
      Size = 30
    end
    object cdsCadastroFORN_CODPAIS: TIntegerField
      FieldName = 'FORN_CODPAIS'
    end
    object cdsCadastroFORN_CODIGO_BANCO: TStringField
      FieldName = 'FORN_CODIGO_BANCO'
      Size = 3
    end
    object cdsCadastroFORN_CODIGO_AGENCIA: TStringField
      FieldName = 'FORN_CODIGO_AGENCIA'
      Size = 5
    end
    object cdsCadastroFORN_DIGITO_AGENCIA: TStringField
      FieldName = 'FORN_DIGITO_AGENCIA'
      Size = 1
    end
    object cdsCadastroFORN_CONTA_CORRENTE: TStringField
      FieldName = 'FORN_CONTA_CORRENTE'
      Size = 13
    end
    object cdsCadastroFORN_DIGITO_CONTA_CORRENTE: TStringField
      FieldName = 'FORN_DIGITO_CONTA_CORRENTE'
      Size = 2
    end
    object cdsCadastroFORN_TIPO_CONTA: TIntegerField
      FieldName = 'FORN_TIPO_CONTA'
    end
    object cdsCadastroFORN_CNPJ_EX: TStringField
      FieldName = 'FORN_CNPJ_EX'
      Size = 14
    end
    object cdsCadastroFORN_LOCAL: TIntegerField
      FieldName = 'FORN_LOCAL'
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 328
    Top = 464
  end
  inherited OpenDialog1: TOpenDialog
    Left = 328
    Top = 80
  end
  object DSFornecedor: TDataSource
    Left = 416
    Top = 16
  end
  object DSPlanoContabil: TDataSource
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 456
    Top = 440
  end
  object QMalaDireta: TQuery
    Active = True
    AfterOpen = QMalaDiretaAfterOpen
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from MalaDiretaFornecedor')
    Left = 592
    Top = 15
  end
  object DSMalaDireta: TDataSource
    DataSet = QMalaDireta
    Left = 263
    Top = 448
  end
  object QVerifica: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * from MalaDiretaFornecedor'
      '')
    Left = 624
    Top = 15
  end
  object DSClassificacaoFin: TDataSource
    DataSet = DMFinanceiro.QPlano
    Left = 176
    Top = 456
  end
  object DSCentroCusto: TDataSource
    DataSet = DMFinanceiro.QCentro
    Left = 376
    Top = 280
  end
  object PopupMenu2: TPopupMenu
    Left = 392
    Top = 448
    object IndicarFavorito1: TMenuItem
      Caption = 'Indicar Favorito'
      ShortCut = 120
      OnClick = IndicarFavorito1Click
    end
  end
  object QLocal: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'Select * From Local'
      'Where'
      '(Excluido <> '#39'S'#39') OR (Excluido Is Null) ')
    Left = 326
    Top = 320
  end
  object DSLocal: TDataSource
    AutoEdit = False
    DataSet = QLocal
    OnStateChange = dsCadastroStateChange
    OnDataChange = dsCadastroDataChange
    Left = 424
    Top = 320
  end
end
